home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / dev / c / MCPP2GED.lha / Arexx / MCPP_LeaveMk.ged < prev    next >
Text File  |  1995-05-25  |  1KB  |  64 lines
  1. /*///  Header
  2. **
  3. **  $VER: MCPP_LeaveMk.ged 1.0 (25 Mai 1995)
  4. **
  5. **    © 1995 Thomas Wilhelmi
  6. **
  7. ** Address : Taunusstrasse 14
  8. **           61138 Niederdorfelden
  9. **           Germany
  10. **
  11. **  E-Mail : willi@twi.rhein-main.de
  12. **
  13. **   Phone : +49 (0)6101 33861
  14. **
  15. **
  16. **  $HISTORY:
  17. **
  18. **  25 Mai 1995 :   1.0 : Erste Veroeffentlichung
  19. **
  20. \\\*/
  21.  
  22.   trace o
  23.   options results
  24.   'LOCK CURRENT'
  25.   if Open('temp','ENV:MCPP_COMPILE_DIR','R'),
  26.    then,
  27.     do
  28.     compdir = readch('temp',99999)
  29.     if Close('temp'),
  30.      then,
  31.       nop
  32.      else,
  33.       'REQUEST BODY "Fehler beim Close!"'
  34.     end
  35.    else,
  36.     compdir = ''
  37.   'QUERY PATH VAR PATHNAME'
  38.   if pathname ~= compdir,
  39.    then,
  40.     do
  41.     'DIR 'pathname
  42.     dd = pragma('D',pathname)
  43.     address COMMAND 'CD 'pathname
  44.     address COMMAND 'SetEnv MCPP_COMPILE_DIR 'pathname
  45.     if show('P','MCPP'),
  46.      then,
  47.       address MCPP 'QUIT'
  48.      else,
  49.       nop
  50.     end
  51.    else,
  52.     nop
  53.   if ~show('P','MCPP'),
  54.    then,
  55.     do
  56.     address COMMAND 'Run >NIL: <NIL: MCPP3 -r'
  57.     address COMMAND 'SYS:RexxC/WaitForPort MCPP'
  58.     end
  59.    else,
  60.     nop
  61.   address MCPP 'LEAVEMK'
  62.   'UNLOCK'
  63.   return
  64.